home *** CD-ROM | disk | FTP | other *** search
/ Power Bytes: Money & Finance / PowerBytes Money and Finance CD-ROM 01 / PowerBytes Money and Finance CD-ROM 01.iso / HyperCard Files / MacSpeedo1.2 / card_2864.txt < prev    next >
Encoding:
Text File  |  1988-09-12  |  2.1 KB  |  108 lines
  1. -- card: 2864 from stack: in.2
  2. -- bmap block id: 2151
  3. -- flags: 0000
  4. -- background id: 2604
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: A003
  11. -- rect: left=229 top=144 right=162 bottom=281
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Test
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.  
  23.   put 10000 into Iterations
  24.   put 200 into DotScale
  25.  
  26.   set hilite of button Test to true -- use button like indicator light
  27.  
  28.   set the cursor to 4 -- show watch cursor
  29.  
  30.   repeat for length of field speedo  --
  31.     delete last char of field speedo
  32.   end repeat
  33.  
  34.   put the ticks into StartTime -- check performance
  35.   repeat for Iterations
  36.   end repeat
  37.   put (the ticks - StartTime) / 60 into ElapsedSeconds
  38.  
  39.   put round (Iterations / (ElapsedSeconds * DotScale) ) into Dots
  40.  
  41.   Repeat for Dots
  42.     Put field Speedo & "ΓÇó" into field Speedo
  43.   end repeat
  44.  
  45.   set hilite of button Test to false -- turn the "test light" off
  46.  
  47. end mouseUp
  48.  
  49.  
  50.  
  51. -- part 5 (button)
  52. -- low flags: 00
  53. -- high flags: 2000
  54. -- rect: left=369 top=290 right=313 bottom=393
  55. -- title width / last selected line: 0
  56. -- icon id / first selected line: 25002 / 25002
  57. -- text alignment: 1
  58. -- font id: 0
  59. -- text size: 12
  60. -- style flags: 0
  61. -- line height: 16
  62. -- part name: 
  63. ----- HyperTalk script -----
  64. on mouseUp
  65.   go to next card
  66. end mouseUp
  67.  
  68.  
  69.  
  70. -- part 7 (button)
  71. -- low flags: 00
  72. -- high flags: A003
  73. -- rect: left=342 top=231 right=250 bottom=403
  74. -- title width / last selected line: 0
  75. -- icon id / first selected line: 0 / 0
  76. -- text alignment: 1
  77. -- font id: 0
  78. -- text size: 12
  79. -- style flags: 0
  80. -- line height: 16
  81. -- part name: config.
  82. ----- HyperTalk script -----
  83. on mouseUp
  84.   go to card id 3886
  85. end mouseUp
  86.  
  87.  
  88.  
  89.  
  90. -- part 8 (button)
  91. -- low flags: 00
  92. -- high flags: 2000
  93. -- rect: left=106 top=239 right=253 bottom=268
  94. -- title width / last selected line: 0
  95. -- icon id / first selected line: 0 / 0
  96. -- text alignment: 1
  97. -- font id: 0
  98. -- text size: 12
  99. -- style flags: 0
  100. -- line height: 16
  101. -- part name: 
  102. ----- HyperTalk script -----
  103. on mouseUp
  104.   go to card id 3803
  105. end mouseUp
  106.  
  107.  
  108.